module Main where
-- import Data.List

import Prelude

import Data.Maybe (Maybe(..))
import Data.NonEmpty (NonEmpty(..))
import Effect (Effect)
import Effect.Console (log, logShow)


import Control.Plus (empty)
import Data.Array ((..))

main :: Effect Unit
main = do
  -- u <- userCity "hi"
  logShow $ countThrows 10

add :: Int -> Int -> Int
add a b = a + b

 

newtype HashCode = HashCode Int


class Eq a <= Hashable a where
  hash :: a -> HashCode

-- combineList :: forall f a. Applicative f => List (f a) -> f (List a)
-- combineList Nil = pure Nil


countThrows :: Int -> Array (Array Int)
countThrows n = do
  x <- 1 .. 6
  y <- 1 .. 6
  if x + y == n
    then pure [x, y]
    else empty